open(BUFF,"inputidlist");
while($line = <BUFF>)
{
	chomp($line);
	$hash{$line} = "k";
}
$file = $ARGV[0];
$file1 = $ARGV[1];
chomp($file);
chomp($file1);
open(BUFF,$file);
open(WRBUFF,">$file1");
while($line = <BUFF>)
{
	chomp($line);
	@array = split(" ",$line);
	if(exists($hash{$array[0]}))
	{
		#print WRBUFF $line."\n";
	}
	else
	{
		print WRBUFF $line."\n";
	}

}
